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‘. ; CREATE DZVDRIVER (Q-BUS VERSION) 

-TITLE DZVDRIVER = Port Driver for DZV-11 support 
-TITLE DZDRIVER = Port Driver for DZ=-11 support 
IDENT ‘V04-000' 


00000001 


SRR AAA AAA AAA AAA AA AAAAAAAAAAAAAAARAAAAAAAAAAAAAAAAAAAAEAEAAAAAAAAAAAAEE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY ‘4 ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ancy USION OF THE ABOVE Sgt, NOTICE. THIS SOFTWARE OR ANY OTHER 
OPIES THEREOF NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aepPOkat ioe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 


SOoOSCSOSCSOSOSOSSOSOSOSOOSOOOOSOOSOOOOSOOSOO 


SOOOoQOQOQCOQCoooooQoQooQooooooooooooo 
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SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


OoOoooooooooo DOOQOCOOOCOOCOOOOOOOOOOSoO 
OOoOOooooooooooooososa ss Ss 


0 
° PRARARAAARALAAAAALALASAALEAALASALEEEAESESES ARE E SELES ELE SEER SESE REESE SERS ESE LSS 
0 
FACILITY: 
VAX/VMS TERMINAL DRIVER 
ABSTRACT: 
0 DZ PORT DRIVER 
0 4 This module functions as a port driver for DZ11 and D232 terminal 
0 4 controllers. It contains hardware specific port level service 
0 2 routines. 
4 AUTHOR: 
0 4 
? RICK SPITZ 
2 Revision history: 
v03-028 M1R0480 Michael I. “Rosentlus 8-Aug-1984 
4 i x bugs found in testing the DZ2-52 and peserted in 
V03-027 LMP0275 Mark Pilan 12-Jul-1984 21:01 
3 Initialize the agi ore in the’ ORB to be a null descriptor 
list rather than an empty queue. This avoids the overhead 


H 15 
ease * Part eteer for WECM swvort  UCATSINES AEE HE SS as Oh 


of gi tg ie —— the ACL mutex, only to find out 


that the ACL was empty. 

v03-026 EMD0090 Ellen M, Dusseault 30-Apr-1984 
ve DEVSM_NNM characteristic to DEVCHAR2 so “< these 
devices will have the ‘'node$"’ prefix. 

v03-025 wre ark Pilan sr r-1984 13:37 

change, UCBSL _ownic” to ORBSL MOUNER and ures VPROT to 

ORBSW_PROT. 

V03-024 JLV0321 Jake VanNo 5-JAN-1984 


Minor enhancements to DzVi4 support. Comment out 
DPT_STORE for parity, must fix a restriction. 


v03-023 BIRGOS? Michael I. Rosenblum 30-June-1983 
Remove code from unit and controler-init routines 
and make insert calls to class driver macros 
Add 0ZV11 support. 


SOOQOOCOOOOSOOOOOOOOOOOOOoOOSoO 
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v03-022 RKS0022 RICK SPITZ 14-MAR-1983 
ADD ENHANCEMENTS TO SUPPORT LOGICAL UCB. 
v03-021 MIROO22 Michael I. Rosenblum 19-Jan-1982 


Change references to UcBsB_ ERTCNT to use UCBSW_TT “UNITBIT 
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20-Dec 2 
Remove entry point to reflect the redefinition of the PORT _DISCONNEC 
entry point. 


v03-013 MIROO14 Michael I. Rosenblum 17-Dec-1982 
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———§ ~QOODODOO00 0000000 0.0 0909 09 09 G9 09 09 09 09 09 SI NII INI NINN NINO OA AAA AAOAOIUIN 


00 to be more maintainab 
00 Replace old vector table with new vector table ma 
00 Remove references to UCBSL_DEVDEPEND and UCB$Q TT STATE 
4 move these references into the class driver jacket routines 
00 v03-020 MIROO21 Michael I. Rosenblum 17-Jan-1983 
4 Fix D232 DZ_SET table entry. 
+4 v03-019 RKS0019 RICK SPITZ 13-JAN-1983 
0 Repair problem with port vector macro 
09 v03-018 MIROO19 Michael I. Rosenblum 11-Jan-1982 
: Fix undefined symbol created by MIROO18. 
v03-017 MIROO18 Michael I. Rosenblum 07-Jan-1983 
° Change the port vector table to use the $VEC macros 
0 v03-016 yo + yea chael I. Rosenblum 05-Jan-1983 
1 ne is po check in the Unit init routine to allow the 
1 eel nal class drier to take positive action on powerfail. 
1 Chan ° code to accept a byte value as returns from the 
1 GETNXT and PUTNXT class rs Arnley this will removes this 
: information from the condition codes. 
1 V03-015 MIROO16 ael I. Rosenblum 29-Dec-1982 
! Replace time PP on code with TIMSET macro call 
! v03-014 RiR0015 Michael I. Rosenblum 
1 
1 
1 
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Remove code to calculate flow control characters from 
port XON and XOFF routines and move that code into 
he class driver. 


v03-012 RKS0012 RICK SPITZ 16-SEP-1982 
Check reference count in unit init to determine if 
modem control should be initialized or hungup. This 
s needed to insure that a hana *“Y is posted on 
powerfail for modem tines. 


y 5-011 JLV0211 Jake VanNoy 2-JUL-1982 
seeey e che k for power fail’ in_ unit init that prevents 
SETUP_ rom being called. This insures that UCB fields 
are in fal iced correctly when Unit init is called for 
use with CSS unibus switch. 


v03-010 KOM0002 thleen D. Morse 28-Jun-1982 
Added $DEVDEF, SIPLDER’ SPRDEF, and $SSDEF. 
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ive 16-SEP-1984 02:23:4 AX/VMS Macro V04-00 Page 5 DZ\ 
ONS istry Oe: 98:82 YT TORVR. SREJDZDRIVER.MAR: 1 vd) vou 
193 ses VECTOR=PORT_VECTOR ; PORT DRIVER VECTOR TABLE 
195 DPT_STORE INIT 
196 DPT STORE UCB,UCBSB_FIPL.B,8 =; FORK IPL 
19 DPT“STORE UCB-UCBSL~DEVCHAR,L,<=: CHARACTERISTICS 
198 DEVSM_REC!~ ; 
19 DEVSMAAVL | - : 
0 DEVSM_IDV!- : 
1 DEVSM~ODVi- ; 
: DEVSM-TRMi- : 
gs CCL> 
4 DPT_STORE UCB,UCBSL DEVCHARZ.L »= : Device Characteristics 
5 <DEVSM_NNM> : pret x with ‘'‘node$"’ 
$ DPT_STORE UCB,UCB$B_DEVCLASS,B,DC$_TERM; 
DPT“STORE UCB,UCBSB-TT_DETYPE,6,TTS UNKNOWN : TYPE 
8 DPT-STORE UCB, UCBSW_TT-DESIZE.aW,TTYSGW_DEFBUF ; BUFFER SIZE 
09 DPT-STORE UCB,UCB$L_TT_DECHAR.@L.TTYSGL_DEFCHAR ; DEFAULT CHARACTERS 
10 DPT-STORE UCB,UCB$L_TT_DECHA1.@L,TTYSGL_DEFCHAR2: DEFAULT CHARACTERS 
11 DPT-STORE UCB,UCBS$W_TT_DESPEE a8 TTy$GB DEFSPEED: DEFAULT SPEED 
1 DPT“STORE UCB.UCBS$W_TT-DESPEE*+1,@8,TTYS$GB_RSPEED: DEFAULT SPEED 
1 DPT-STORE UCB,UCB$B_TT-DEPARI,@8,TTY$GB_PARITY : DEFAULT PARITY 
14; DPT“STORE UCB,UCBS$B_TT-PARITY.a@B,1TTY$GB-PARITY : DEFAULT PARITY 
15 DPT“STORE UCB, UCB$B_DEVTYPE .B.11$_UNKNOQN + TYPE 
18 DPT“STORE UCB.UCB$W_DEVBUFSIZ.aW,TTYSGW_DEFBUF : BUFFER SIZE 
1 DPT-STORE UCB,UCBSL_DEVDEPEND.@L,TTYSGL_DEFCHAR : DEFAULT CHARACTERS 
18 DPT~STORE UCB. UCBSL DEVDEPND2 @L, TTYSGL-DEFCHAR2; DEFAULT CHARACTERS 
19 DPT-STORE UCB.UCBS$W-TT_SPEED, 8, fTY$GB_DEFSPEED : DEFAULT SPEED 
0 DPT“STORE UCB,UCBS$W_TT-SPEED+1, a8, TTYS$GB_RSPEED : DEFAULT SPEED 
1 DPT-STORE UCB.UCB$8_DIPL,B, 21 : DEVICE IPL 
3 DPT“STORE UCB.UCBSL_TT_WFLINK,L, : Zero write queue. 
DPT_STORE UCB,UCBSL_TT_WBLINK,L, ; Zero write queue. 
4 DPT_STORE UCB,UCBSL_TT_RTIMOU,L, ; Zero read timed out disp. 
5 DPT_STORE ORB,ORB$B_FLAGS,B,- ; Protection block flags 
6 ZORBSM.PROT_16> + $OGW protection word 
DPT_STORE ORB,ORBSW_PROT, aw, TTYSGW PROT ; Default allocation protection 
8 DPT“STORE ORB.ORBSL-OWNER,@L,TTYSGC_OWNUIC ; Default owner UI 
; DPT-STORE DDB.DDBSL-DDT.D.DZ$DDT 
1 DPT_STORE REINIT 
’ DPT“STORE CRB,CRBSL_INTD+VECSL_INITIAL,D,DZSINITIAL ; CONTROLLER INIT 
DPTSTORE CRB,CRBSL_INTD+VECSL_UNITINIT,D,DZS$INITLINE: UNIT INIT 
4 DPT“STORE END 
6 DDTAB DEVNAR = ere ; DUMMY DZ PORT DRIVER DISPATCH TABLE 
= e* 
8 FUNCTB = 
40 .PSECT $$$115_DRIVER 
42 ; 
rk : THE ASSOCIATED CLASS DRIVER USES THIS TABLE TO COMMAND THE PORT DRIVER. 
44 > THE ADDRESS OF THIS TABLE IS CONTAINED IN THE TERMINAL UCB EXTENSION AREA. 
i : THE OFFSET DEFINITONS ARE DEFINED BY TTYDEFS. 
4 ¢ 
48 PORT_VECTOR: 
4 


"S$EP=198¢ 02:95:53 EMTDRVR.SRESbzDRIVER.man;1 “28° cf, 
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«SBTTL REGISTER DEFINITIONS 
: : CSR BIT DEFINITIONS ( CSR ) ( READ/WRITE ) 


SVIELD DZCSR, +e 
<M : 0232 = MODE/ DZ11 = UNUSED 
<0 “EAB, | 1°M>,- 3 D233 = DATA SET INTERRUPT ENABLE 


+ UNUSED 

chAINt 1 1,M>,- : LINE TURNAR UND 
CLEAR.1,.M>.-  : MASTER RES 

CHASTEAB, | >, MASTER SCAN N ENA 
<RCVINT,1,M>,- 3 RECEIVER INT RROD E ENABLE 
<RCVRDY.1,M>.= : RECEIVER READY 
<LINE,3.M>,-. LINE NUMBAE (0 = 7) 
<DS_CHG.1,M>,- : D232 = DATA SET INTERRUPT 
<,2,>,° 3; UNUSED 
<§NOINT,1.M>,= 3 TRANSMIT INTERRUPT ENABLE 
<SNDRDY.1.M>= : TRANSMITTER READ 


RECEIVER BUFFER ( CSR#2 ) ( READ ONLY ) 
SVIELD DZRCV,0,<- 
<BUF 


DODOOOOOOOOOOOOCOOOOOOOoOO 
OOOCCOSCSO COSCO OOOCOOOOOOSOOoOO 


>>> >>> >_> >_> >_> >_> >_> +d 


~ : RECEIVER DATA 

07 <LINE,3,M>,- $ LINE NUMBER (0 - 7) 
07 <,1,>,° 
07 <PARERR,1,M>,= ; PARITY ERROR 
07 <FRAMER.1.M>, ; FRAME ERROR 

7 <OVERRUN, 1.M>,- ; OVERRUN ERROR 
07 <VALID, 1,M>= °  : DATA VALID 

? 
oof ; ? LINE PARAMETER REGISTER ( CSR#2 ) ( WRITE ONLY ) 

7? Py 


SVIELD DZLPR,0,<- 

<LINE.3.M>,- LINE ER (0-7) 
Size. D>, - } CHARACTER SIZE 
<STOP ; ER STOP BITS 
PARITY ’ >, - 3 PARITY ENABLE 
<ODD,1,M> ; PARITY 
<SPEED{4,M>,- : LINE SPEED 
<CLOCK,1.M>.= +: RECEIVER CLOCK 
<SPLIT.1.M>.= : D232 - SPLIT SPEED 


D2-32 SPECIFIC MODEM CONTROL 


SVIELD pzLcst, ,8,<- 
<htk, {,.m>,- ; READY FOR COMMAND/ UPDATE OUTPUT MODEM 


BPE AAA AA AMAA AIDIRTIRININININININ  — 3 SB OQOQOO OO OOOO 000000000 00M000 
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here 
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«SBTTL CONTROLLER INITIALIZATION 


27 
Ore 
~ 
z=. 
27 
a 


pee 
; DZSINITIAL = INITIALIZE INTERFACE 


Dr f 
LE T 
7 4 
fe 38 
? 48 
: 50 
7 ; 
7 § 3 
3 i FUNCTIONAL DESCRIPTION: 
f 38 ; THIS ROUTINE IS ENTERED AT SYSTEM STARTUP AND POWER RECOVERY. 
oF 3} ; INPUTS: 
07 38 ; R = ADDRESS OF THE UNIT CSR 
es 60 ; RS = IDB 
07 61 ; RB = ADDRESS OF THE UNIT CRB 
075 3 : 
07 63 ; OUTPUTS: 
bors Ses | R2 is destroyed 
Py $s destro ° 
075 366 | 
075 367 : IMPLICIT INPUTS: 
075 «368: 
0073 $9 ; IPL = IPL$_POWER 
9073 71 == 
0079 e HZSINITIAL:: ; INITIALIZE DZ UNIT 
9079 7% ; 
075 375 : SET UP CONTROLLER 
0075 id: ; 
Bace A class_ctrl_init dz$dpt,port_vector 
64 10 B80 Al i 25$:  MOVW  #DZCSRSM_CLEAR, (R4) ; INIT CONTROLLER RESET 
OOAS 3 
DOA : ; WAIT TILL CONTROLLER INIIALIZATION IS COMPLETE 
Gong 4 ‘ TIMEWAIT #500, #DZCSRSM_CLEAR, (R4),W,. FALSE. 
64 4063 8F B0 aoe 6 MOVW &#<<DZCSRSM_MASTENAB>!- ; 
D <DZCSRSM_RCVINT>!- : ENABLE RECEIVER INTERRUPTS 
D 3 <DZCSRSM~SNDINT>/ - : ENABLE TRANSMITTER INTERRUPTS 
D <DZCSRSM-DS_ENAB>!- : ENABLE 02-32 DATA SET INTERRUPTS 
D 0 <DZCSRSM-MODE>>, (R4) : ENABLE ENHANCED MODE ON D2-3 
2150 €9 . 31 BLBC RO-DESCTRE ERROR 
53 64 80 D 38 MOVW ss (R4) Re : GET NEW STATUS 
19 § 0 € 06 34 BBS ao7cgR V.MODE.R2,110$ : BRANCH IF DZ-32 CONTROLLER 
DA 36 100$: 
0B AS 42 8F 90 DA ? MOVB #D1$_DZ11,CRB$B_TT_TYPE(R8); CONTROLLER IS D211 
DF 38 > INIT DZ-11 INTERRUPT VECTORS 
DF 0: NE HERE 10 ALLOW T HE DRIVER TO SERVICE INTERUPTS 
DE ‘ } ; FOR BOTH THE DZ-11 AND DZ~32 BETWEEN CONTROLER AN UNIT INIT 
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68 .IF NDF DZV ; IF NOT DZV 


CMPB $D1$_DZ11,CRBSB_TT_TYPE(R4) ; CONTROLLER 0211? 
BEQL «= -25$ : YES 


INIT RECEIVER MODEM STATUS FOR DZ-32 
. MOVL  @CRBSL_INTD+VECSL_IDB(R4),R4  ; GET CSR ADDRESS 
; WAIT TILL MODEM CONTROL READY FOR COMMNAD 
TIMEWALT #500, #07L(S1SH ACK, 4(R4),W,. TRUE. 
MOVW  UCBSW_UNITTRS) .4(R4) ; REQUEST STATUS ON LINE 
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DZVDRIVER - Port Driver for DZV-11 support 16-SEP-1984 02:23:45 VAX/VMS M v04-00 P 11 
Po e000 UNIT INITIALIZATION - -SEP=1984 be: 98:82 YT VR. SRCIDZDRIVER.MAR: 1 ~— ih 
F 4 7 ve ~SBTTL UNIT INITIALIZATION 
F 4 ; DZSINITLINE = UNIT INITIALIZATION 
F 4 ; FUNCTIONAL DESCRIPTION: 
F 4 ; THIS ROUTINE PERFORMS A SIMPLE UNIT INITIALIZATION. 
OF 4 5 : INPUTS: 
OF 4 $ 3 RS = UCB ADDRESS 
4 635 : OUTPUTS: 
OFS 441: R2,R5 ARE PRESERVED. 
00F5 208 * 
Fe ret DZSINITLINE:: 
54 2645 00 0 F3 446 MOVL  UCBSL_CRB(RS),R4 : GET CRB ADDRESS 
0 r9 448 IF NDF DZV : IF NOT DZV 
00F9 450 MOVAL Dz32SVEC RO ; SET 02-32 PORT VECTOR TABLE 
00F9 451 CMPB. =: #DT$_D232, CRBSB_TT_TYPE(R4) ; IS IT DZ-32 ? 
0 F9 43¢ BEQL 6=s«SS$ : YES 
0 Fg 434 .ENDC ; END OF D232 CODE 
50 FF3B CF DE OOF9 436 MOVAL 0211$VEC,RO ; SET DZ=+11 PORT VECTOR TABLE 
0 FE 457 5$: CLASS_UNIT_INIT 
64 45 10 AB 0146 438 BISw ~ #uCBSM ONL INE UCBSW_STS(RS); SET ONLINE 
53 01 54 A5 78 0148 459 108: #ASHL UCBS$W_ONIT(RSS,#1,R3 | ; BUILD UNIT'S BIT MASK 
0106 cS. 53”—s«wBO 6 20 460 MOV UCB$W_TT uni teiT(Rs) : SAV 
51 0114 ¢5 00 0155 461 MOVL B$L_TT~CLASS( : ADDRESS CLASS VECTOR TABLE 
08 61 «16 BA 46¢ a JSB @CLASS_SETUP_UCB(R1) |: INIT UCB FIELDS 
QO000GA7"EF 16 3 464 —— DZSSET_LINE : INIT SPEED/PARITY 
54 24 a5 00 0 6 46 MOVL  UCBSL_CRB(R5),R4 : GET CRB ADDRESS 
67 
8 
67 
67 
67 
$f 
67 
67 
$5 
67 
67 
67 
67 
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DZVDRIVER - Port Driver for DZV-11 5s t 16-SEP-1984 02: AX/VMS Macro V04-00 P 12 
vou-000 UNIT INITIALIZATION nae SSE 198¢ 04:15:55 ETTORVR.SRESDZDRIVER.maR;1 22° (9), 
1 484 
18% 4 5 ; WAIT FOR COMPLETION | 
18) 4 5 TIMEWALT 009 #OZLCS1$M_ACK,4(R4),W,. TRUE. 
16 4 : 0,DZ$UNIT ERROR 
f 4 ; MOVB ark UCBSB” TT_DS_RCV(RS) : UPDATE RECEIVER MODEM STATUS | 
18 491 25$: 
162 49¢ .ENDC =; END OF D232 CODE 
52 DD 0167 «494 PUSHL R2 
51 00 9A 0169 495 MOVZBL #MODEMSC_INIT,R1 : ASSUME INIT MODEM PROTOCOL 
50 01145 00 016¢ 4e6 MOVL UCBSL_TT~CLASS(R5),RO : ADDRESS CLASS VECTOR TABLE 
0c 80 16 171 49 JSB ac LASS_DS_TRAN(RO) : INVOKE TO INIT MODEM PROTOCOL 
entice (1; Bub PO at, 
08 64 aS 05 €E1 O77 200 "BBC #uCBSV power UCBSu_STS(R5) 40$; DID WE DETECT A POWER FAIL 
0 0114 ¢5 DO O17¢ 501 MOVL UCBS CLASS(R5) -RO GET THE CLASS VECTOR TABLE ADDRESS 
2080 17 181 208 JMP SCLASS TEAGEAPRIC TRO} : AAD Goro THE POWERFAIL CODE 
05 184 203 40$:  RSB 

§i82 505 

ois 809° 

0185 508 DZSUNIT_ERROR: 

64 A5 10 AA 0185 509 “BICW § #UCBSM_ONLINE,UCB$W_STS(RS5) : UNIT NOT ON LINE 
05 0189 510 RSB 


; ERROR DETECTED DURING INITIALIZATION 
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-SBTTL MAINTENANCE ROUTINES 


; DZSMAINT = MAINTENANCE FUNCTIONS 


18A i 
18A 51 
ae 
} A 1 $ FUNCTIONAL DESCRIPTION: 
A 18 : THIS ROUTINE PERFORMS MAINTENANCE FUNCTIONS FOR THE DZ. 
18A 0; 
A 1: INPUTS: 
18A g : RS = UBC ADDRESS 
A 4 ; UCB$B_TT_MAINT = FUNCTION TO BE PERFORMED 
18A g : OUTPUTS: 
18a 
0 A § ‘IF NDF DZV 
18A 0 DZ32$MAINT: 
018A 531 BITB § #10$M_LOOPa-7,- ; LOOPBACK FUNCTION 
018A 5 j UCB$B_TT_MAINT (RS) 
018A 33 BEQL : NO 
018A 534 MOVZBL #*X40,R2 : SPECIFY LOOPBACK CODE 
018A 335 “ BRB 10$ 
018A 238 : BITB #10$M_UNLOOPa@-7,- ; RESET LOOPBACK FUNCTION 
18A 6-538 UCBSB-TT_MAINT(RS) 
018A 539 BEQL e > NO 
018A 340 a MOVZWL #*X7200,R2 > SPECIFY UNLOOP CODE (BOTH) 
EN see ge Dz3280S_SET : UPDATE CONTROLLER 
018A 54 MOVZBL #1,RO : INDICATE SUCCESS 
a rr 
EN 246 " «BITB. = #@10$M_LOOP_EXTa-7,- : LOOPBACK FUNCTION 
018A 34 UCBSB_TT_MAINT (RSS 
018A 548 BEQL 0 > NO 
018A 549 MOVZBL #*X72,R2 : SPECIFY LOOPBACK CODE 
A 20 BRB 10$ 
18A 38 208: : CHECK OTHER FUNCTIONS 
18A 553 .ENDC 
18A 4 0211$MAINT: 
04 93 O1BA 35 BITB #10$M_LINE_OFF@-7,- : LINE OFF 
012A C5 18C $ UCBSB_TT_MAINT (R55 
8 13 O18F 55 BEQL 108 : NO 
80 F 88 0191 38 BISB § #UCBSM_TT_DSBL.- : DISABLE LINE 
012A C5 194 55 yCBSB_TT_RAINT(RS) 
0d 11 197 60 oe BRB $ 
19 93 0199 6¢ " -:BITB = #@10SM_LINE_ON@-7,- > LINE ON 
012A ¢ - 198 63 seal B$B-TT_MAINT(R5) i. 
g0 8F = oBA 185 45 BICB § #UCBSM_TT_DSBL,- : REENABLE LINE 
012A C5 A 66 ae UCB$B_TT_AMAINT(RS) 
QO0004A7"EF 16 148 68 JSB DZ$SET_LINE ; IMPLEMENT FUNCTION 


o V04-00 Page 


; 
a eee eee 


Be 84:95:55 UMDRUR.SACSDzDRIveR.mar:1 29° {4 


On 


G 16 


MOVZBL #7,RO 


RSB 


aes 


H 16 
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Mire OUTPUT MODEM CONTROL 9 ~SEP=-1984 be: 98:82 UT TORVR. SREJOZDRIVER-MAR: 1 . 
18 a a .SBTTL OUTPUT MODEM CONTROL 
18 hi ; DZ$DS_SET = SET OUTPUT MODEM SIGNALS 
18 1 ; FUNCTIONAL DESCRIPTION: 
18 $ $ THIS ROUTINE OUTPUTS THE OUTPUT MODEM SIGNALS FOR THE SPECIFIED UNIT 
18 5 : INPUTS: 
1B : : R2 = LOW BYTE = SIGNALS TO ACTIVATE 
18 8 3 HIGH BYTE= SIGNALS TO DEACTIVATE 
O18 30 : RS = UBC ADDRESS 
O18 36 : OUTPUTS: 
O18 9% : RO-R3 ARE USED. 
O1Bs bon 
018 39 D211$DS_SET: 
54 DD O18 98 PUSHL R4 > SAVE 
0125 ¢5 52 88 0185 599 BISB R2,UCB$B.TT_DS_TX(R5) : SET NEW OUTPUT SIGNALS 
52 52 F8 BF 78 O1BA 600 ASHL = #=8, t ACCESS SIGNALS TO RESET 
01 cS 32 BA O1BF 601 BICB R2,UCB$B TT_DS _TX(RS) : RESET THEM 
4 34 AS DO 01C4 60¢ MOVL UCBSL_CRBC(RS) ,R4 : GET CRB ADDRESS 
53 2c B4) OO 1¢8 603 MOVL @CRBSC_INTD+VECSL_IDB(R4) .RS_ sak seneune 
51 0125 ¢5 01 O01 EF O1CC 605 EXTZV #TTS$V_DS_DTR,#1,UCBSB_TT_DS_TX(R5),R1 
103 606 > GET CURRENT DTR FOR LINE 
51 51 54 A5 78 0103 607 ASHL UCBS$W_UNIT(R5),R1,R1 : SHIFT TO RELATIVE LINE POSITION 
1E AS) «60106 C5 BA SCO01DB—Ss«08 BICB UCBS$W7TT_UNITBIT(RS) ,CRB$B_D2_DTR(R4) 
pipe 609 ; RESET CURRENT DTR FOR THAT LINE 
3 AG 51 88 O1DE 610 BISB R1,CRB$B_DZ_DTR(R4) : SET IT IF NEED BE 
05 AS 16 AG 90 oles 611 MOVB  CRB$B_DZ~DTR(R4),5(R3) : UPDATE DTR STATUS FOR LINES 
54 8ED0 oie? 61g POPL R4 
1EB 614 .IF NDF DZV 
1EB 615 0232$DS_SET: 
1B 616 PUSHL  R4 > SAVE 
16B 61 188s R2 ucese TT_DS_TX(R5) ; SET NEW OUTPUT SIGNALS 
168 618 ASHL #-8,R2,R2 + ACCESS SIGNALS TO RESET 
168 619 BICB = R2 ucags TT_DS_TX(RS) ; RESET THEM 
1B 6 0 VL  UCBSL_CRB(RS) ,R4 : GET CRB ADDRESS 
168 1 MOVL acnesc INTD+VECSL_IDB(R4S.R 
16B 6 ; TIMEWAIT #100, 70ZLCS1SM_ACK,4(R3) ,W,. TRUE. : WAIT FOR READY 
16B 6 MOVZ2WL UCBS$B_TT_DS_TX-T(R55 ,-(SPS : CREATE TEMP LOCATION 
1EB 626 MOVB  UCBSW UNTT (RS) (SP) : SET UNIT NUMBE 
1EB 625 BISW #DZLCS1$M_ACK, (SP) : ENABLE NEW OUTPUT SIGNALS 
168 6 $ CVTILW (SP) +,4(R3) : SET NEW OUPUT MODEM SIGNALS 
go me 
O16B 6 § .ENDC 
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rt Driver for ro _v04 
1 MODEM POLLER -SEP-1984 TTDRVR.SRCIDZDRIVER.MAR; 1 )| 
1EB gg *SBTTL_ DZ=11 MODEM POLLER | 
JER 633 ; DZSTIMER = POLL FOR DZ-11 MODEM TRANSITIONS | 
TE 6 5 ; FUNCTIONAL DESCRIPTION: | 
1EB é , ; THIS ROUTINE CHECKS FOR DZ=11 CONTROLLER MODEM 
1B 8 : TRANSITION. IT UPDATES THE INPUT MODEM STATUS FOR EACH | 
1EB 639 : LINE AND CALLS THE CLASS TRANSITION ROUTINE FOR EACH LINE WITH 
TE 40 : A CHANGE. 
1EB 4g 3 INPUTS: 
1EB G44 : RS = TQE ADDRESS 
1EB G46 ; OUTPUTS: 
1B 648 : RO = R4 DESTROYED 
1EB 649: 
But 
1B 63¢ DZSTIMER: 
0060 8F BB O1EB 65 PUSHR #*M<RS,R6> 
54  Q0000000°EF DE 1EF 634 He MOVAL DZSL_DIALUP,R4 : GET DZ TIMER LIST HEAD 
54 64 ~—SCO biEe 636 ; MOVL  (R4),R4 : GET NEXT CRB ADDRESS 
05 12 O1F9 65 BNEQ  15$ : PROCESS LINES FOR THIS CRB 
0060 8F BA O1FB 658 POPR #@M<RS,R6> : RESTORE REGISTERS 
05 O1FF 699 RSB : RETURN FROM TIMER IMTERRUPT 
00 661: TEST LINES ON THIS CONTROLLER FOR A TRANSITION 
0200 66¢ : 
$6 $i 15$ 
54 DD o 665 PUSHL R4 ; SAVE TIMER THREAD 
54 18 =«C2 2 66 SUBL  § #CRB$L_DZ_MODEM,R4 : GET ACTUAL CRB ADDRESS 
53 2C B&O O#O 66 MOVL a@CRBSL-INTD+VEC$L_IDB(R4S,R3 ; GET CSR ADDRESS 
06 A3 1C AG BI 9 66 CMPW CRBS$B_BZ_RING(R4)~6(R3) ; ANY TRANSITIONS 
78 «13 669 BEQL 60$ F 
1 ef : FIND WHICH SIGNALS CHANGED AND UPDATE THEM 
A 10 673° MOVB. 6(R3),R2 : GET NEW RING 
50 7¢ “ 82 a 14 674 XORB3 R2,CRB$B_DZ_RING(R4).RO ; FIND TRANSITIONED LINES 
1C AG $9 19 675 MOVE =o CRB “DZ“RING(R4)  : UPDATE CURRENT RING 
56 36 ““ $ D 8 7s XORB3 AS) Re D2_CARRIER(R4) ain a 
50 ; rH 8 er BISB i ree *; FLAG LINES WITH TRANSITIONED CARRIER 
1D A4 9 67 MOVB  R2.CRBS$B_DZ_CARRIER(R4) : UPDATE CURRENT CARRIER 
p : PROCESS TRANSITIONED LINES | 
51 50 08 i FA 6 4 50S: FES #0, #8,R0.R1 FIND NEXT LINE NEEDING SERVICE 
0050 51 ES , 6 6 BBCC ~—_ R71, RO, 55 : RESET ATTENTION BIT FOR THIS LINE 
8 687 55$: | 
| 
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.SBTTL RECEIVER INTERRUPT SERIVCE 
: DZSINTINP = DZ RECEIVER READY INTERRUPTS 

; FUNCTIONAL DESCRIPTION: 
THIS ROUTINE IS ENTERED WHEN A. CHARACTER Is AVAILAR 
; SILO. THE CHARACTER IS EXTRACTED AND IS PASSED 10. 

; CLASS DRIVER. IF THE CLASS DRIVER RETURNS CHARACTER 
: OUTPUT IT INITIATED (NORMALLY ECHO). 

; INPUTS: | 
: 00(SP) = ADDRESS OF IDB 
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are 


: IMPLICIT INPUTS: 

; RO.R1,R2,R3,R4,R5 ARE SAVED ON STACK. 
: OUTPUTS: 
THE INTERRUPT IS DISMISSED WHEN THE SILO IS EMPTY. 


5Z11SINTINP: : : DZ-11 INPUT INTERRUPTS 
4 : GET THE CSR ADDRESS 
4 MOVL  a(SP)+,R4 : GET THE IDB ADDRESS 
4 PUSHL R4 : SAVE IDB ADDRESS 
4 MOVL  (R4),RO : GET THE CSR ADDRESS 
49 : GET THE CHARACTER FROM THE INTERFACE 
51 35s: movw (RO), R3 : GET THE CHARACTER,ERRORS AND LINE NUMBER 
BGEQ  100$ [SILO EMPTY 


BITW #<DZRCVSM_PARERR>!- 
<DZRCV$M_OVERRUN> ! = 


DO OOD NA NEADS OD NA UNE WIN OS OD NAME WIN SO OD NAUE WN 0 OONOUS WI O0OO~ 
. . . 


<DZRCVSM_FRAMER>,R3 s ERRORS? 
BNEQ 30 3YES PROCESS THEM 
27$:  — ASHL R3,R : GET THE LINE NUMBER 
BICL Cit, R : 
MOVZBL R3,R i CLEAR THE HIGH BYTES OF CHARACTER | 
MOVL ipgsc. UCBLST(R4)CR2],R5 : GET THE UCB FOR THAT LINE 
BEQL : IF EQL THEN NOT THERE 
JSB @UCBSL_TT_PUTNXT(RS) |: BUFFER THE CHARACTER 
TSTB ! $8_TT_OUTYPE(RS) : DID HE RETURN ANYTHING TO OUTPUT 
BLEQ : NONE OR STRING OUTPUT 
MOVB RS ,ucBsy TT TT -HOLD(RS) t SAVE THE CHARACTER IN TANK 
BISW : SIGNAL CHARACTER IN TANK 
anys tT. NOCD CR 
BISW UCBs TT ~UNITBITCRS) , 4(RO) : ENABLE LINE 
30$: MOVL (SP),R4 ~ : GET IDB ADDRESS | 
BRB ; CONTINUE 
71 408: 
7 BEQL 308 ; NO CHARACTER 
? BISW  #TTYSM_TANK_BURST,- > SIGNAL BURST 
| 
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r for DZV-11 support 16-SEP-1984 AX/VMS Macro V04-00 Pa 
ERRUPT SERIVCE TS Pa Ct 
774 UCB$W_TT_HOLD(RS) 

775 BISW YCRSU_TTIUNITBIT (RS) ,4 (RO) : ENABLE LINE 

oS ™ 

28 3 : SILO EMPTY OR CHARACTER IN ERROR 

f 0 5 bos: 

f ¢ : PROCESS PARITY, FRAME OR OVERRUN ERROR 

784 ASHL #=8,R3, RB : GET LINE NUMBER 

785 BICL  #*C<7> : 

7 $ MOVL DBSL_UCBLST(R4)CR2],R5; GET UCB ADDRESS 

? BEQL 5 ; IF EQL THEN NO UCB 

t : MOVL  UCBSL_TT_CLASS(R5),R2: get CLASS DISPATCH 

183 60$:  JSB CL ASS_READERROR(R2) ; SIGNAL ERROR 

791 BNEQ 2 ; BRANCH WITH CHARACTER TO MAIN PATH 
198 70$:  BITW  #*x080, (RO) ; VALID CHARACTER IN SILO NOW? 

79 NEQ  30$ : IF NEQ THEN YES 

794 100$: ADDL 24 : REMOVE IDB ADDRESS 

79 OVO (SP)+,RO : RESTORE REGISTERS 

79 MOVa  (SP)+. : 

79 MOV  (SP)+.R4 : 

79 REI 


DZVORIVER - Port 
Vou-000 RECEIVE 


Do 
3 


M16 
Spreserivce ee "Orgep=1b8e beiis:ss Ea tNUR. eaesozbetvee.mar:1 P29e 22, 


.1F NDF D2ZV 
D2-32 INPUT INTERRUPT SERVICE 


se 
z2<c 


 apaprnialass ; 02-32 INPUT INTERRUPTS 
: ; GET THE CSR ADDRESS 


MOVL @(SP)+,R4 GET THE IDB ADDRESS 
PUSHL aes zeye IDB oR ABR 
MOVL ET THE CSR 


BICW acc ICSRSN RCVINT>!= 


G DDRESS 
Stet E RECKIVER | INTERRUP 


: SILO EMPTY OR CHARACTER IN ERROR 


” 


; PROCESS PARITY, FRAME OR OVERRUN ERROR 


ASHL #-8, Rg ; GET LINE NUMBER 
BICL ce + : 


bos: 


1C 
1¢ 
1¢ 
1¢ 
1¢ 
1¢ 
i¢ 
1¢ 
1¢ 
1¢ 
1¢ 
i 
1¢ <DzCSR SR$M_DS_ENAB>>, = DIS Dz A SET INTERRUPTS 
\e DZ-3 ye ng the interrupt service routine 
i¢ ; GET THE CHARACTER FROM THE INTERFACE 
O3i¢ 55s: movw 2(R0), »R3 ; GET THE CHARACTER, ERRORS AND LINE NUMBER 
1¢ BGEQ 00$ :SILO EMPTY 
O3i¢ BITW  §#<DZRCVSM_PARERR>!- 
1¢ <DZRCVSM_OVERRUN>!- Z ERRORS? 
031¢ <DZRCVSA_ FRAMER>,R3 TERR 
6 1¢ BNEQ 50 YES OPROCESS THEM 
1¢ 27$: ASHL #-8,R3, R : GET THE LINE NUMBER 
O3iC¢ BICL  #*C<7>;R : 
1¢ MOVZBL R3 : CLEAR THE HIGH BYTES OF CHARACTER 
1¢ MOVL DBSL_UCBLST(R4)CR2],R5 : GET THE UCB FOR THAT LINE 
1¢ BEQL : IF EQL THEN NOT THERE 
1¢ JSB auCBSL TT_PUTNXT(RS) ; BUFFER THE CHARACTER 
1¢ TSTB CB$B_TT_OUTYPE(RS) : DID HE RETURN ANYTHING TO OUTPUT 
1¢ BLEQ 4 it : NONE OR STRING OUTPUT 
1¢ MOVB ucesu 1 -HOLD(RS) : SAVE THE CHARACTER IN TANK 
1¢ BISW aTtys OLD. : SIGNAL CHARACTER IN TANK 
iC a jcesu" Mey ACG ) 
1¢ MOVL  (SP),R4 ; RESTORE IDB ADDRESS | 
1¢ BISB UCBSW_TT_UNITBIT(R5).- : ENABLE LINE | 
1¢ IDBS$B~TT~ENABLE (R4) 
1¢ MOVB §IDBSB-TT~ENABLE(R4) ,7(RO) | 
1¢ 30$:  MOVL (SP) .R4 : GET IDB ADDRESS 
1¢ BRB 25$ : CONTINUE 
1¢ 40$: 
1¢ BEQL 308 : NO CHARACTER 
1¢ BISW $$ #TTYSM_TANK_BURST,- : SIGNAL BURST 
iC ycasi TT_HOCD(R5) 
1¢ BRB 
1¢ 
1¢ 
1¢ 
1¢ 
1¢ 
1¢ 
1¢ 
1¢ 
1¢ 
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wreath RECEIVER INTERRUPT SERIVCE > -SEP=1984 ve qe $2 TTDRVR. SRCIDZDRIVER. MAR:1 oe a v0 
1¢ 58 MOVL JDBSL_UCBLST(R4)CR2I_,R5 : GET UCB ADDRESS 
1¢ BEQL : IF EQL THEN NO U cB 
1¢ 60 MOVL UCBSL_TT_CLASS(R5),R2 : GET CLASS DI SPATE 
iC 66 60$: JSB ACL ASS_READERROR(R2) : SIGNAL ERROR 
iC 686 BNEQ 2 : BRANCH WITH CHARACTER TO MAIN PATH 
1¢ 864 70$: BITW #*x080,(RO) + VALID CHARACTER IN SILO NOW? 
0 1¢ 63 sale BNEQ  30$ : IF NEQ THEN YES 
31¢ 3 MOVW = (RO) , RB ; TEST FOR MODEM TRANSITION 
31¢ 68 BBS #0Z7CSRSV_DS_CHG, R3, 2008 ; BRANCH IF MODEM TRANSITION 
31¢ 86 BISW  #<<DZCSRSM_RCVIN : ENABLE RECE VER INT RRUPTS 
1¢ 0 EogcGRane oS ENABDS, : E D2-32 DATA SET INTERRUPTS 
031C 871 (RO) : D2-32 BEFORE EXITIN 
031¢ 876 ADDL #4,SP : REMOVE IDB ADDR 
031C 87 MOVQ = (SP)+,RO + RESTORE REGISTERS 
031C 874 MOVQ (SP) +,R2 ; 
031¢ 873 MOV (SP) +.R4 : 
O31C 876 REI 
031C 877 200$: PUSHL RO : SAVE RO 
031C 878 MOVB. 6(RO),R3 : GET NEW RECEIVE MODEM SIGNALS 
031¢ 879 BICL3 #*C<7>,R3,R2 + ISOLATE UNIT NUMBER 
031C 880 MOVL TDBSL_UCBLST(R4) CR2I.R5 : GET ASSOLAITED UCB 
031C 881 BEQL 10$ + NONE 
031¢ 88¢ MOVE R3,UCBS$B_TT_DS_RCV(RS) ; UPDATE INPUT MODEM SIGNALS 
O31C «88 MOVZBL R3.R2 + LOAD ARGUMENT 
031C 884 MOVZBL #MODEMSC_DATASET,R1 + MODEM TRANSIT 
031C 885 MOVL  UCB$L_TT~CLASS(R5),R3 : ACCESS CLASS VECTORS 
031C 886 JSB @CLASS_DS_TRAN(R3) ; SIGNAL TRANSI 
031C 887 110$: POPL RO : RESTORE RO 
031C 888 BRW 30$ + DISMISS INTERRUPT 
031C 889 .ENDC 
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tbat START 1/0 ROUTINE 7” SSE IERt BEF ese PAT NNS Bac ee oe Oe ans1 2° 38, 
1¢ 31 * .SBTTL START 1/0 ROUTINE 
1¢ $8 : DZS$STARTIO = START 1/0 OERATION ON DZ 
1¢ 99 : FUNCTIONAL DESCRIPTION: 
1¢ 3 : THIS ROUTINE IS ENTERED FROM THE DEVICE INDEPENDENT TERMINAL STARTIO 
ie a8 3; ROUTINE TO ENABLE OUTPUT INTERRUPTS ON AN IDLE DZ UNIT 
3c ony : INPUTS: 
Hf $04 ; R3 = CHARACTER AND CC = PLUS 
1¢ «6903: ADDRESS AND CC = NEGATIVE 
O3i¢ 904 ; 
3c «905: R5 = UCB ADDRESS 
031C 906; 
O3i¢ 907 ; OUTPUTS: 
31 =: 908 : 
O31C 909 ; RS = UCB ADDRESS 
031C 910 
O31C 911 BZ11SSTARTIO:: : START 1/0 ON UNIT 
16 18 031¢ 312 BGEQ : SINGLE CHARACTER 
0800 8F AB 031 91 BISW  #TTYSM_TANK_BURST,- : SIGNAL BURST ACTIVE 
0108 C5 032 914 UCB$W_TT_HOLD(R5) 
51 24 A5 00 03 915 10$: MOVL UCBSL~CRB(R5),R1 GET CRB OF UNIT 
51 2C Bl 00 0329 916 MOVE  @CRBSC_INTD+VECSL_1DB(R1S,R1: GET CSR 
04 A1 0106 C5 AB 03 p 917 BISW  UCBSW_TT_UNITBIT(R5) ,4(R15 ENABLE LINE 
05 O32 213 20s 3 RETURN’ TO CALLER 
0108 cS) 53) —«90s«0334 =: 920 MOVB R3,UCB$W_TT -HOLD(RS) : SAVE OUTPUT CHARACTER 
0400 8F AB 0339 921 BISW #TTYS$M_TANK : SIGNAL CHARACTER IN TANK 
0108 C5 033D 32¢ UCBSW_ tT “HOCD(RSS 
E311 0340 92 BRB 10$ 
0342 924 
342 925 .IF NDF DZV 
0342 926 DZ32$STARTIO:: : START 1/0 ON UNIT 
0342 927 BGEQ 208 > SINGLE CHARACTER SPECIFIED 
0342 928 BISW  #TTYSM_TANK BURST,- : SIGNAL BURST ACTIVE 
0342 929 UCB$W_TT_HO D«RS) 
0342 930 10$:  MOVL YEBSL~CRBCRS) : GET CRB OF UNIT 
0342 931 MOVL  CRBSL INTDSVECSL._ IDB(R1).R4 GET IDB ADDRESS 
034 93¢ MOVL cna) RA T CSR ADDRESS 
0342 93 BISB  UCB$W_TT_UNITBIT(RS) rope. TT_ENABLE (R4) 
O34 934 MOVB itt TTENABLE(R4),7(R 
4 ; 5 vi RSB ) RETURN TO CALLER 
be 339 MOVB = R3 ucBsu, rT -HOLD(RS) : SAVE OUTPUT CHARACTER 
O34 938 BISW #TfY$M_TANK7HOLD + SIGNAL CHARACTER IN TANK 
". ie UCBSW_ 1" ANAC ERS 
0 42 940 BRB 10$ 
42 941 .ENDC 
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VO e000 PORT ROUTINES STOP,RESUME_KDN. XOFF Seen aBe Bei Tei8s ATOKNS Sac te Mkt OO an:1 fase 23, 
4 ate He .SBTTL PORT ROUTINES STOP,RESUME,XON, XOFF 
4 45 : DZSXOFF - SEND XOFF 
42 946 : DZSXON - N 
42 947 : DZ$STOP - STOP OUTPUT 
4 48 : DZSABORT - ABORT CURRENT OUTPUT 
4 949 ; DZSRESUME - RESUME STOPPED OUTPUT 
0 4 331 : FUNCTIONAL DESCRIPTION: 
034 338 : THESE ROUTINES ARE USED BY THE THE TERMINAL CLASS DRIVER TO 
4 394 ; CONTROL OUTPUT ON THE PORT 
034 996 > INPUTS: 
O34 998 : R5 = UCB ADDRESS 
034 960 : OUTPUTS: 
034 36¢ : RS = UCB ADDRESS 
034 964 : .ENABLE LSB 
O34 966 : SCHEDULE XOFF TO BE SEND 
0342 968 : INPUTS: 
Bae 889 ; R3 - CHARACTER TO BE SENT AS FLOW CONTROL 
034 971 6211$XOFF: 
034 $78 : SCHEDULE XON TO BE SENT 
0342 975 6211$XON: 
0108 CS. 0100 8F =ABSCO0842—s«976 BISW  #TTYSM_TANK_PREMPT,UCBS$W_TT_HOLD(RS) | ; SCHEDULE XON 
010A C5) 5390 0349 907 MOVB R3,UCB$8_TT~PREMPT(RS) : SAVE THE CHARACTER 
18 64 AS 01 €0 o333 43 BBS #UCBSV_INT,UCBSW_STS(R5),10$ : IF urput ACTIVE, 
51 pd 0353 981 PUSHL 1 : SAVE A REGISTER 
51 24 A5 00 0353 98¢ MOVL UCBSL_CRB(RS),R1 : ACCESS CRB ADDRESS 
51 3C B1 D0 339 98 MOVL a@CRBSC_INTD+VECS$L_IDB(R1),R1 t GET CSR ADDRESS 
04 Al 0106 C5 ack 035 384 Bisw UCBSW_TT_UNITBIT(R5) ,4(R15 ; ENABLE LINE 
00 64 AS 01 pS 366 ae? ante BBSS § #UCBSV_INT,UCB$W_STS(R5),10$ ; SHOW OUTPUT ACTIVE 
05 0368-- 9 : "2 eg 
36¢ 989 DISABLE LSB 
6¢ $31 : STOP PORT OUTPUT 
6C 398 bZ$STOP: 7 
0200 8F As 6 994 BISW  #TTYSM_TANK_STOP,- : SCHEDULE STOP 
0108 C5 6 995 UCBSW_TT_HOCD(R5SS 
ie 
74 998 + ABORT ANY CURRENT PORT OUTPUT ACTIVITY 
0374 999; 
| 
j 


W LE X 
MOVB R3,UCBSB_TT “PREMPT (RS) SAVE THE CHARACTER 


IN THE PREMPT SLOT —) 


BBS #UCBSV_INT,UCB$W_STS(R5), 10S : JF output ACTIVE, 
PUSHR #*M<R1,R4> : SAVE REGISTERS 
MOVL UCBSL_ ERB(R : ACCESS CRB ADDRESS 
MOVL  CRBSL~ NTDSvECSL. IDB(R1) ,R4 : GET IDB ADDRESS 
MOVL : GET CSR ADDRESS 
BISB UCB$W_TT_UNITBIT(RS) , 1DB$8_TT_ENABLE(R4) ; ENABLE LINE 


MOVB IDeSCT IE ENABLE(R4),?7(R1) ~ 


BBSS #UCBSV_ INT, UCBSW_STS(R5) 10S SHOW OUTPUT ACTIVE 


10$: 
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reat PORT ROUTINES | STOP-RESUME KON. XOFF BreEE mobs bastesss LARONUS eaeSorhetyee mans1 Page 24, 
74 1000 DZSABORT: 
0108 ¢5 08 ES £4 1 BBCC #TTYSV_TANK BURST ,UCBSW_TT_HOLD (RS) , = : RESET BURST ACTIVE bi 
7A 1 § 10$ , D1 
SD i ¢ tees : iW CASE-OUS SUT ACTIVE DI 
05 D 1 § RSB , . . D1 
4 D] 
—E 1008 ; D1 
: 09 $ RESUME PREVIOUSLY STOPPED PORT OUTPUT Di 
51D E 12 B21 1SRESUME: R1 SAVE A REGISTER Di 
mon es cane ME) ey see Sr tee Dai lal tou vied y 
: N 
15 0108 CS) «0B =O 0397 «1015 BBS #TTYSV~TANK_BURST,UCBSW_TT_HOLD(R5),20$ : BURST IN PROGRESS D2 
th 1918 10$: ; CHAR IN TANK OR OTHER Dd] 
39 101 TIMSET 1 D1 
1F 11 0380 1018 BRB 30$ uy 
038 1019 208: DJ 
51 0120 ¢5 3c 0382 1020 MOVZWL UCBS$W_TT_OUTLEN(RS),R1 ; GET NUMBER CHARACTERS D1 
038 19 1 naa TIMSET R1,R17 : D1 
136405 01 €0 0 19 "BBS #UCBSV_INT CBsy_ STS(RS) ,40$ ; SKIP IF OUTPUT ON D2 
51 24 a5 DO O 1024 MOVL  UCBSL_CRB(R5) R1~ : ACCESS CRB ADDRESS D2 
51 2 B1 DO O 1025 MOVL acRBSC, INTDEVECSL 1DB(R1) R1 ; GET CSR ADDRESS D2 
04 A1 0106C5 AB O 1026 BISW UCBSW T(R5) ,4(R15 ¢ NABE E LINE D2 
0064 A5 01 €E2 0 : i BBSS ycesso. Inte yeas. STS(R5) , 40$ : SHOW OUTPUT ACTIVE bi 
51 8EDO 1029  ~— POPL__ tt D2 
05 1030 RSB D2 
1031 .IF NDF DZV D2 
ENABLE LSB bl 
SCHEDULE XOFF TO BE SENT bi 
bz32sxorF : b2 
SCHEDULE XON TO BE SENT bd 
1040 6232$xoN: Ey 
BIS #TTYSM_TANK_PREMPT,UCBSW_TT_HOLD(RS) SCHEDU E} 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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SSRAwVaBAARAARS 


RSB 
- DISABLE LSB 
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yaa hi PORT ROUTINES STOP,RE SUMES Up BN XOF F green 1882 ber aei ge ET TORVR. See SRCIDZDRIVER.MAR; 1 . 2, 
ED 1057 
ED 1 38 ; 
ED 105 
ED 1060 
Bi 
ED 1 : $: Bi cu #TTYSM_TANK_STOP=- 
ED 1064 CB$W-TT_HOLD(RS) : RESET STOP CONDITIONS 
ED 1065 BBS #TTYSVITANK_BURST ,UCBSW_TT_HOLD(R5),20$ : BURST IN PROGRESS 
ED 1 : 10S: + CHAR IN TANK OR OTHER 
ED 1 TIMSET 1 : TIME OUT 
ED 1 8 RB 30$ 
ED 1 20S: 
0 ED 1070 MOVZWL UCBS$W_TT_OUTLEN(RS) ,R1 
0 ED 1071 ae TIMSET R1,R1 ; SET THE TIMER 
O5ED 199 BBS #UCBSV_INT gycBsu. STS(R5) ,40$ : SKIP IF OUTPUT O 
3ED 1074 MOVL UCBS$L_CRB(R : ACCESS CRB ADDRESS 
O3ED 1073 MOVL  CRBSL INTDSVECSL. IDB(R1) ,R4 : GET IDB ADDRESS 
O3ED 1076 MOVL  (R4),R1 : GET CSR ADDRES S 
O3ED 1077 BISB UCBSi_ TT_UNITBIT(R5) , IDB$B_TT_ENABLE (R4) ABLE LINE 
O3ED 1078 MOVB  IDBS$B-TT~ENABLE(R4),7(R1) ~ 
& 4 ; U V 
O3ED 1079 sie BBSS  #UCBS$0_INT,UCBSW_STS(R5) ,40$ SHOW OUTPUT ACTIVE 
O3ED 1081 POPR #*M<R1,R4> 
O3ED 108¢ RSB 
O3ED 1083 .ENDC 


| 
: RESUME STOPPED OUTPUT 
b232SRESUME: 
PUSHR #*M<R1,R4> : SAVE REGISTERS 
5 mM’ TAN 
WTT 
VITA 


mc 
z7 
Cc 
uo 
“+o 


et 8 a bt 4 db A 2 2 a a a 2s ss as a) 3 2s 2 9 2 2 
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=§ ate 
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: -SBTTL OUTPUT INTERRUPT SERVICE 
DZSINTOUT = DZ-11 OUTPUT INTERRUPT SERVICE 
; FUNCTIONAL DESCRIPTION: 
; THIS ROUTINE IS ENTERED WHEN THE DZ-11 FINDS A LINE ENABLED 
; AND AN EMPTY UART. THE CORRESPONDING UCB IS FOUND AND 
ANY OUTSTANDING PORT OUTPUT J3 DONE. WHEN ALL OUTSTANDING PORT 
; OUTPUT IS COMPLETED, ‘HE CLASS DRIVER IS CALLED TO RETURN THE NEXT 
CHARACTER OR STRING TQ BE GUTPUT. IF NO MORE OUTPUT IS FOUND, THEN 
; THE LINE IS DISBALED. 
INPUTS: 
SP(00) = ADDRESS OF THE IDB 
IMPLICIT INPUTS: 
RO,R1,R2,R3,R4,R5 SAVED ON THE STACK. 
OUTPUTS: 


THE INTERRUPT IS DISMISSED. 


b 


211_OUT_EXIT: : EXIT OUTPUT INTERRUPT 

KDDL = #4, SP + REMOVE IDB ADDRESS 

MOVO  (SP)+,RO : RESTORE REGISTERS 

MOVQ (SP)+.R? : 

MOVQ (SP)+-Rs : 

REI t DISMISS INTERRUPT 
DZ211$INTOUT:: ; DZ-11 OUTPUT INTERRUPT SERVICE 
0211_OUT_LOOP: 

MOVL a(SP),R4 : GET THE IDB ADDRESS 

MOVL  (R4),RO : GET THE CSR ADDRESS 


: GET THE LINE INFO FROM THE CSR 


MOVW (RO) ,R2 ; GET THE CSR VALUE 
BGEQ 0211 gui EXIT ; NO_ MORE LINES 

ASHL #-8,R RS ; GET THE LINE NUMBER 
BICL #*C<7>,R : 

MOVL IDB$L_UCBLST(R4)CR2],R5; GET THE UCB ADDRESS 
BEQL D211_OUT_LOOP ; IF EQL THEN DISMISS 


CHECK FOR BURST ACTIVE ON LINE 

CMPB #TTYSM_ TANK BURST@-8,- ; ONLY BURST ACTIVE? 
UCBSW_TT HOCD+1(R5) 

BEQL DZ11_BurST ; YES, CONTINUE BURST 


LOOK FOR NEXT OUTPUT STATE IN TANK 
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vive OUTPUT INTERRUPT SERVICE ~~> ety 7 be: 98:92 TTDRVR.SRCIDZDRIVER.MAR:1 1) 
420 114 
53 0109 CS 4606) «00 siéEA ss (04 Q 1128 FFS 40.46 UCBSW_TT_HOLD+1(R5) ,R3 
4o7 1144 CASE  R3,TYPE=B,<= : DISPATCH 
427 1145 0211_PREMPT,- + SEND PREMPT CHARACTER 
427 1146 0211-STOP,= + STOP OUTPUT 
4o7 114 D211-CHAR,- t CHAR IN TANK 
4o7 1148 D211—BuURSf,- : BURST IN PROGRESS 
a Hi 
4 1131 : NO PENDING DATA = LOOK FOR NEXT CHARACTER 
64 AS 03 BA 4 Hi : BICB #UCBSM_TIM!UCBSM_INT,UCBSW_STS(R5); CLEAR TIMEOUT AND EXPECTED 
4 , 1135 : CALL CLASS DRIVER FOR MORE OUTPUT 
010¢ DS) «16 oe 7 1189 JSB @UCBSL_TT_GETNXT(RS) : GET THE NEXT CHARACTER 
01 FF 8F 0108 CS) 8F 0438 1158 CASEB UCBS$B_TT_OUTYPE(R5) ,#-1,41; OPTOMIZE FOR THE SINGLE 
ae 1139 ; CHARACTER CASE BY SETTING THE 
0017" 0442 1161 1S: .WORD 0211_START_BURST-1$ + BURST SPECIFIED 
000A" 444 1166 “WORD 50$-T$ + NONE 
0446 1184 : OUTPUT A CHARACTER TO THE DZ-11 
06 A0 53 «98 beee 1166 20$: MOVZBW R3,6(RO) ; OUTPUT CHARACTER 
AE 11 O44A 1167 BRB 0211_ouT_LOoP 
044¢ 1189 : DISABLE OUTPUT ON THIS LINE 
Beek 1459 bos: 
01 £0 et: 11% ——- #UCBSV_INT,- : IF INT EXP, THEN DON'T RESET, 
AD 64 AS 044E 117 UCB$W_STS(R5) .D211_OUT_LOOP 
B43) 1178 ; COULD HAVE BEEN SET DURING CALLBACK 
04 AO 0106 C5 AA 0451 1126 BICW  UCBSW_TT_UNITBIT(RS),4(RO) ; RESET THE OUTPUT ENABLE 
Al 11 0457 «117 BRB 0211_OuT~LOOP 
gis Nn 
459 1180 DZ211_START_BURST: 
0800 8F AB 0459 1181 B1SwW #TTYSM_TANK_BURST,- 3; SIGNAL BURST ACTIVE 
0108 C5 45D 1 : UCBSW_TT_HOCD(R5) 
480 1 4 t CONTINUE BURST OUTPUT 
é80 11 6 6211_BURST: 
one D5 90 460 1 MOVB QUCBSL_TT_OUTADR(RS) ,~ ; OUTPUT NEXT BYTE 
011C eg 06 186 11 3 INCL UCBS$L_TT_OUTADR(RS) : UPDATE POINTER 
0120 €5 B87 046A 1190 DECW UCBSu TTTOUTLEN(RS) > UPDATE COUNT 
bh 12 46 1191 BNEQ 0211 OUT“L t NOT LAST CHARACTER 
0800 F AA 04 6 1198 BICW  #TTYSM_TANK BURST,- + RESET BURST ACTIVE 
010 c5 474 119 UcBsu TT_HOCD(R5) 
FFBO 031 407 1194 BRW 0211_OuT~LOOP 
4A 1138 + OUTPUT SINGLE CHARACTER 
47A 1198 6211_CHAR: 
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; STOP THE OUTPUT 


; RESET THE OUTPUT ENABLE 


; RESET OUTPUT ACTIVE 


_TIM,= 
»4(RO) 


Lycesn 


' 
R 
NITBIT(RS) 


—~ SD 


~ENABLE LSB 
SEND XON OR XOFF CHARACTER 


11_PREMPT: 


~_ 
cerere OC 


; RESET XOFF STATE 


D(RS) © 


TT_HOC 


TT 
But 


$M_TANK PREMPT 


BICW 
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; DZ-32 OUTPUT INTERRUPT SERVICE CODE 


v—~ 
=0 
uo 


U 


0232_OUT_EXIT: : EXIT OUTPUT INTERRUPT 

ADDL =s#4,, SP + REMOVE IDB ADDRESS 

MOVG ($B)+.RO : RESTORE REGISTERS 

MOVQ (SP)+-R : 

MOVQ (SP)+-R4 : 

REI + DISMISS INTERRUPT 

SINTOUT:: : 02-32 OUTPUT INTERRUPT SERVICE 
ot OUT abcor: 

a(SP),R4 ; GET THE IDB ADDRESS 

hag (R4) ,RO : GET THE CSR ADDRESS 


: GET THE LINE INFO FROM THE CSR 


MOVW »R2 3; GET THE CSR VALUE 
BGEQ y . OUT_EXIT 
Stn eee of : GET THE LINE NUMBER 


MOVL toast it nicbustonaoceea, RS; SE THE UCB ADDRESS 
2.6 ; IF EQL THEN DISMISS 


CHECK FOR BURST ACTIVE ON LINE 
CMPB Abby TANK pastes. - 3 ONLY BURST ACTIVE? 


UCBSu Wat gC +1 (RS 
BEQL 0232.6 : YES, CONTINUE BURST 
; LOOK FOR NEXT OUTPUT STATE IN TANK 
FFS #0,#6,UCBSW_TT_HOLD+1(R5) ,R3 
CASE R3.TYPE= ; DISPATCH 
D2$2_PREMPT,- > SEND PREMPT CHARACTERS 
0232-STOP,- : STOP OUTPUT 
0732~CHAR.- : CHAR IN 
Dz “puRSsT ,- + BURST in PROGRESS 


; NO PENDING DATA = LOOK FOR NEXT CHARACTER 
BICB #UCBSM_TIM!UCBSM_INT,UCB$W_STS(R5); CLEAR TIMEOUT AND EXPECTED 
CALL CLASS DRIVER FOR MORE OUTPUT 


DDI SSS SDD DDD DDD DDS ITT BS BS BEE EWA nopononp 


OOD NIA MEIN @ OOO NAME WIN OS OO NA UE WIN 3 O OO NOA UE WIN 0 OONOAUE WI OOONOu 
. eee 


RIPPIN IPDPPIPYIDINININININIPININPINIPINIPININPINPINPINIPINIPINIPIPIPINIPUPIPUNRIPIPIPUPIPIPIPIPUPIPUPINOPPPUPOPONP oo 


JSB @UCBSL_TT_GETNXT(RS) Ger ote NEXT CHARACTER 
CASEB UCB$B_TT_OUTYPE(RS) ,#-1, i: OPTOMIZE FOR THE SINGLE 
; EWARACTER, CASE BY SETTING THE 
1$: WORD 332 START _BURST~18 t BURST SPECIFIED 
"WORD $-T : NONE 


enue 


K 1 
DZV-11 support 1 
T SERVICE 


; OUTPUT A CHARACTER TO THE DZ=32 
20$: MOVB R3 g(R0} 
BRW D2$2_0UT_LOOP 
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er 

RR 
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1588 

1084 

1085 

1589 ; 

g : DISABLE OUTPUT ON THIS LINE 

i 3 50s: BBS #UCBSV_INT 

3¢ UCB$W_STS(R5) ,D232_OUT bop 
129% , 
1295 MOVL a (SP),R4 : 
1 36 BICB UCB$W.TT_UNITBIT(RS).- ; 
129 IDB$B~TT ENABLE (R4) 

1298 MOVB 1DBSB TT “ENABLE (R4) ,7(RO) 
1299 BRW D232_6uT_LOOP 

13° 

1308 D232_START_BURST: 

130 BISW | #TTYSM_TANK_BURST,- : 
1304 UCB$W_TT_HOLD(R5) 

1305 DZ32_BURST: 

1306 MOVB @UCBSL_TT_OUTADR(RS),- ; 
1307 6(RO) ~ 

1308 INCL UCB$L_TT_OUTADR(RS) ; 
1309 DECW UCBSWITTTOUTLEN(RS) ; 
1310 BNEQ 60$ ; 
1311 BICW #TTYSH TANK_BURST,- : 
1 1 ucesy TT_HOCD(RS5) 

13 6 60$: BRW 2_GUT"LOOP 

19 ? OUTPUT SINGLE CHARACTER 

1317 b732_ CHAR: 

1318 MOVB  UCB$W_TT HOLD (RS) , 6(RO) ; 
1319 BICW #TTYSA_TANK_H 3 
1320 ucBsu TT_NOCDCRSS 

. BRW 0232_OUT“L 

gj : STOP OUTPUT 

1325 6232. STOP: 

1 é BICB  #UCBSM INT LUCBSM_ TIM,- 

1 UCB$W_STS(R5) ; 
1 ; MOVL  a(SP)7R4 ; 
1 BICB UCB$W:TT_UNITBIT(RS).- ; 
1330 1DB$B~TT~ENABLE (R4) 

1331 MOVB 1DBSB TT~ENABLE (R4) ,7(RO) 
: BRW 0232_OuT~LOOP 

Pe .ENABLE LSB 

$; : SEND XON OR XOFF 

1338 5732_PREMPT: 


3; OUTPUT CHARACTER 


IF INT EXP, THEN DON'T RESET, 
COULD HAVE BEEN SET DURING CALLBACK 


GET IDB ADDRESS 
RESET THE OUTPUT ENABLE 


SIGNAL BURST ACTIVE 


OUTPUT NEXT BYTE 
UPDATE POINTER 
UPDATE COUNT 


NOT LAST CHARACTER 
RESET BURST ACTIVE 


; OUTPUT CHAR IN TANK 
; SHOW TANK EMPTY 


RESET OUTPUT ACTIVE 
GET IDB ADD 
RESET THE OUTPUT ENABLE 
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; RESET XOFF STATE 


; OUTPUT CHARACTER 
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7 the SET SPEED, PARITY PARAMETERS Breer obs Peeescs PAINS Baers Vlt Oe wan:1 29° 3, 
iM .SBTTL SET SPEED, PARITY PARAMETERS 
GA 


;++ 
; DZSSET_LINE - RESET SPEED, PARITY 
$ FUNCTIONAL DESCRIPTION: 


t er f 
p PARI 
134 
1309 
1384 
4A? 1 
4A7 1 ; 
Me 
4Ar 35 + INPUTS: 
Ar sf : RS = UCB ADDRESS 
4A 33 : OUTPUTS 
4A7 1361 : R4 USED 
aM Hite i 
4A? 1 or DZSSET_LINE: 
54 24 05 00 4A 65 MOVL  UCBSL_CRB(RS),R4 ; ADDRESS CRB 
4AB $ ; SET UP LINE SPEED AND PARITY 
54 20 B4 00 O4AB 1 $3 ‘ MOVL  @CRBSL_INTD+VECSL_IDB(R4),R4 §; GET THE CSR ADDRESS VIA CRB 
7E D4 O4AF 1370 CLRL. =(SP) ~ : RESET A TEMPORARY POCATION 
01 AE OOF4 CS 01 83 0481 1371 SUBB3 #1, UCB$W_TT_SPEED(RS) ISP) ADJUST DATA BASE SPEED 
6€ OOF8 CS 90 0488 1 es OVB UCB$B_TT~PARITY(RS),(SP); SET PARIT P, CHARACTER SIZE 
6— F007 8 AA O04BD 137 BICw  #*xFO07 P : CLEAR SPECIAL FIELD 
7 €0 04C2 137% BBS #uCBSV_TT : SKIP CLOCK ENABLE IF LINE DISABLED 
05 012A €5 4C4 1375 UCB$B Ver Taint ers) 3$ 
6— 1000 8F As 4c8 16 - BISW PeDIEPRSA, CLOCK>, (§P) 
6E 54 a5 AB O04CD 1378 BISW UCBSW_UNIT(RS), (SP) : SET LINE NUMBER 
01 B3 0401 1379 BITW  #DZCSRSM_MODE, (R4) + D232 CONTROLLER? 
05 1 4p4 5 rm BNEQ 108 + YES 
02 a6 «BE F? 0406 1 é 7 CVTLW (SP) +,2(R4) : INSERT AS LINE PARAMETER 
OF othe 138e _ 
4B 5 = HANDLE 02-32 SPECIFIC FUNCTIONS 
OOF4 CS) «91 «04DB C1 § " CMPB)=s«UCBSW_TT_SPEED(RS),- =; _TRANSMIT/RECEIVE THE SAME 
O0FS ¢5 4DF 1 8 CBSW-TT ~SPEED+1 (RS) 
Fe 13 04E2 1 BEQL $ : YES, NO SPLIT SPEED 
0or5 cS) 95 Q4E4 «(1390 TSTB UCBSW_TT_SPEED#1(R5) > RECEIVE SPEED SPECIFIED? 
EC (13 aE 31 BEQL $ : NO, NO SPLIT SPEED 
aEA 38 ; SET SPLIT SPEED 
6E 2000 8F ag 4EA 1395 BISW  #DZLPRSM_SPLIT, (SP) : SET SPLIT SPEED BIT 
65 1 ef 36 BRB 5$ : COMPLETE SETU 
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DZVORIVER - Port Driver for DZV-11 5 rt 16-SEP=1 AX/VM v04 
v04=000 SET SPEED, PARITY PARAMETERS Been aBe Beste see TONS eae re tt OO WaRst 
4F1 139 
af 14 6 .SBTTL INITIALIZE DZ-11 MODEM POLLING 
4F1 14 ++ 
Fi 14 ; DZSSET_MODEM = INIT MODEM POLLING 
ari 14 5 : FUNCTIONAL DESCRIPTION: 
4F1 14 5 : INIT DZ-11 MODEM TRANSITION POLLING IF NOT ALREADY ACTIVE. LINK CRB 
ar 14 2 ; FOR CURRENT LINE INTO MODEM TRANSITION POLLING LIST 
ar] 1410 t INPUTS: 
oF 141g : RS = UCB ADDRESS 
ari 1614 + OUTPUTS: 
ger 1416 : RO-R4 USED 
eer 
O4F1 1419 DZ11$SET_MODEM: 
54 24 AS DO O4F1 1420 MOVL UCBSL. CRB(RS), R4 : ADDRESS CRB 
cedonotovs #2 Bra High park, EMP | Bis! SEP aetanpeer acre 
38 BB O4FD 14 § PUSHR #*M<R3,R4, R5> : 
55 QO000004"EF DE OFF 1424 MOVAL  DZ$TIMQUENT RS ADDRESS OF TIMER ENTRY 
BA 90 0506 1425 MOVE #IPL$_QUEUEAST, TOESB_ ROTYPE(RS) ; SET FORK IPL 
me o08t 3 bao 1459 Brae 35s : QUEUE FORK 
8 BA Ht 14 8 4$: POPR #AM<R3,R4,R5> : 
53 18 AG DE 0515 1430 ° ~~ MOVAL CRBS$L_DZ MODEM(RA) , R3 ; ADDRESS OF DZ CRB THREAD 
51 O00000000'EF DE 0519 1431 MOVAL bz 7$L_BIACUP,R ADDRESS OF DZ TIM ER LIST HEAD 
52. 51 ~=——0 09 1638 MOVL »R2 
iF 14 4 ; LINK CRB INTO DZ-11 MODEM POLLER LIST IF NEEDED 
5 143 10S: 
53 62 «~©»01 05 14 § CMPL = (2), R3 : 1S CRB oN LIST 
08 13 05 6 1438 BEQL ©-_- 208 : YES, 
52. 62 DU 0528 1439 MOVL  R2),R2 + POINT "0 NEXT CRB 
F6 if 528 1440 BNEQ  10$ + LOOK FOR NEXT 
63 61 DO 052d 1441 MOVL  (R1), (R3) + LINK CRB AT LIST HEAD 
61 53 oO 05 1449 MOVL  R3,(R1) ; 
5 1445 208: 
0 eae jeds 30s: 88 
00000000'GF 16 3 4 1446 : a GHEXESEORK : FORK TO QUEUE TIMER ENTRY 
QC AS FCA7 CF 9E 0540 1448 OVAB WDZSTIMER, TOESL_FPC(RS); ADDRESS OF TIMER SERVICE ROUTINE 
20 AS 00000000'GF D0 0546 144 OVL  G*TTYSGL_DELTA, TOESQ_DELTA 
54E 1450 INTERVAL IS SYSGEN PARAMETER 
AS 05 90 054—€ 1451 MOVB #TQES$C_SSREPT T TQESB_ ROTYPE(RS) 
50 0 000000'GF 7D 335 1458 MOVQ G*EXE$GQ_SYST 
50 nN "GF C0 35 1453 ADDL GT TYSGL- sustin a 
00000000'GF 16 268 1436 J$B G*EXESINSTIMQ : INSERT INTO TIMER QUEUE 
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& DZ$TIMQUENT 
DYNSC-TQE,DZ$TIMQUENT 
E, TQESC_SSREPT ,DZ$TIMQUENT 


GTH 
E,WORD, TOE$C_LENGTH 
E.BYTE 

YPE ,BYT 


z2znare 


“BLKB TQ 
§T0_TQE TQ 
STO-TQE TQ 
STO-TOE TQ 


3; End of driver 
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Symbol table oe Breeer1bae Oc:iesss LATOR. SaeSozbetvee.mars1 29° 37, 
DZLPRSM_SIZE = 01 RBSM_PROT_16 = 01 
DZLPRSM_SPEED = F RBS$W PROT = 4 
DZLPRSM_SPLIT z PORT_ABORT = 
DZLPRSM_ s PORT_DS_SET s 
DZLPR$S_CLOCK = PORT_LERGTH = 
DZLPRSS_LINE = PORT_MAINT = 
DZLPR$S_ODD = 1 PORT_RESUME = 4 
DZLPR$S_PARITY = 1 PORT SET ALINE = 
DZLPRSS_SIZE = ¢ PORT_SET- MODEM = 
DZLPR$S_SPEED = PORT-STARTIO 2 
DZLPR$S_SPLIT = 1 PORT-STOP = 0000001 
DZLPR$S_STO = 9 9 1 PORT_VECTOR 38 R 03 
DZLPR$V_CLOCK = PORT—XOFF = 14 
DZLPRSV_LINE = 000000 PORT-XON = 00 19 
DZLPRSV_ = 4 0 PRS_TPL = 0000001 
DZLPRSV_PARITY = 00 S12. = 00 38 1 
DZLPRSV_ = 000 SS$_NORMAL = 00000001 
DZLPRSV_SPEED = 44444 TQESB_RQTYPE = 000000 
DZLPRS$V_SPLIT = 900 90 “TYPE s BOR R OA 
DZLPRSV_ = 00000005 TQESC_LENGTH = 000000 2 
DZRCVSM_ = Q00000F F TQESC_SSREPT = 0000000 
DZRCVSM_FRAMER = 392000 TOESL_FPC 2 $0088 3 
DZRCVSA_ = 00000700 TQE$Q_DELTA = 000000 
DZRCVSM_OVERRUN = 00004000 ih sh SIZE = 34 $4 5 
DZRCVSM_PARERR = B00 81808 TTSM_6S_CTS = 00 49 
DZRCVSM_VALI = 0000800 TTS$M_DS_DSR s 38 3t4 
DZRCV$S_BU = BO 00n08 TT$V_DS_CARRIER 2 $99 
DZRCV$S_FRAMER = 00000001 TT$V_DS_DTR = 0000 oo) 
DZRCV$S_LI = 00000003 TT$V_OS_RING = 0000 98 
DZRCV$S_OVERRUN = B008 1 TT$V_MOBEM = 0000001 
DZRCV$S_PARERR = S008 1 TT$_ONKNOWN = 00000000 
DZRCV$S_VALID = 00000001 TTYSGB_DEF SPEED eeereree =X = 0 
DZRCV$V— = 000 44 TTY$GB_PARITY aeeeeree KX 0 
DZRCVSV_FRAMER = 98 0000 TTY$GB_RSPEED eerereee KX 0 
DZRCV$SV_LI = 00 $008 TTYSGL_DEF CHAR eeeeeree§ X 0 
DZ2RCV$V_OVERRUN = 0000000E TTYS$SGL_DEF CHAR2 eeereeee xX 0 
DZRCV$V_P = it oC TTYSGL_DELTA eeeeeree xX 
DZRCV$V_VALID 2 900 OOOF TTYSGL_DPT eeeeeeee xX 
DZV = 00000001 TTYS$GL_OWNUIC eeeeeeee = § xX 
EXES ereeenee x TTYS$GW_DEF BUF teterere 4 8 
EXESGL_ABSTIM eeenenee =X TTY$GW~ PROT eeeneeee 
EXESGL_ TENUSEC terereer TTYSM_TANK_BURST = 000008 
EXESGL_UBDELAY eeeereee =X TTYSM_TANK_HO = 000004 
EXESGQ-SYSTIME eeneeeee =X LIVER TANK PRERPT = 
EXESINS; 1MQ eeeeeeee xX TTYSM_TANK-STO s 
FUNCTAB_LEN = 00 TTY$V_PC_NOTI = 
IDBSL_UTBLST = 1 TTY$V—_TARK_BURST = 
10$M_CINE_OFF = 0 UCBSB_DEVCCASS = 4 
1OSM~LINE-ON = 0000080 UCB$B_DEVTYP : 41 
IOCSANTVER eererere x 93 UCBSB_DIPL = ra 
1OCSRETURN eeeeerer x UCBSB_F IPL s 
IPL$_QUEUEAST = UCBS$B-TT_DEPARI z E 
IPL$- SYNCH = UCB$B_TT-DETYPE s 
MODERSC_DATASET s UCBSB_TT-DS_RCV = 1 
MODEMSC™ INIT = UCBS$B-TT-DS- TX = 125 
oRB$B_FCAGS = UCBSB_TT-MAINT s 120A 
ORBSL_OWNER = UCBSB-TT“OUTYPE s 1 
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VAX=11 Macro Run Statistics ” ete be: 48:82 TTDRVR.SRCIDZDRIVER.MAR; 1 ° (1) vi 


teow ern e meee w noone rec eme a} 


! Performance indicators ! 


beer wee mem en se emer ew ewe eee ee 


Phase Page faults CPU Time Elapsed Time 
Initialization Fi :00:00.05 :00: 0. 4 
Command processing 1 :00:00.4 :00:01.39 
Pass 1 69 :00:22. :00:44.74 
Symbol table sort :00:03. :00: 4-9? 
ass 24 :00:04. 00:09. 
Symbol table output 31 :00:00.21 :00:00.4 
Psect synopsis output :00:00. :00:00. 
Cross-reference output > :00:00. 
Assembler run totals 113 . 0:01:03. 


Th rking set Limit was 2250 pages. 
17 132 bytes ho8 pages) of a0 page memory were used to buffer the intermediate co 


de. 

Trece were 160 pages of symbol table space allocated to hold 3025 non-local and 60 local symbols. 
1482 source Lines were read in Pass 1, orogye S68 22 object records in Pass 2. 
72 pages of virtual memory were used to define 67 macros. 

gore entre ees eee ere ees ee eee ese + 

i Macro Library statistics : 
Macro Library name Macros defined 
“$52 2SDUACE: FSVS 084218 MLB: 1 33 
$255S$DUA28: (CSYSLIBISTARLET.MLB;2 1 
TOTALS (all Libraries) 4 


3540 GETS were required to define 45 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:DZVDRIVER/OBJ=0BJ$:DZVDRIVER MSRC$:DZV/UPDATE=(ENHS$:DZV) +MSRC$:DZDRIVER/UPDATE=(ENHS:DZDRIVER) *EXECMLS$/LIB 
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